home *** CD-ROM | disk | FTP | other *** search
/ FM Towns: Free Software Collection 4 / FM Towns Free Software Collection 4 - Disc 1.iso / fb386 / pickup / start.bas < prev    next >
BASIC Source File  |  1991-10-18  |  3KB  |  80 lines
  1. 1000 '　ＰＩＣＫＵＰ　ＴＯＷＮＳ　音楽プログラム集　起動プログラム
  2. 1010 ' 
  3. 1020 '
  4. 1030 CONSOLE ,,0:SCREEN@ 0
  5. 1040 FOR I=0 TO 15:PALETTE I,[0,0,0]:NEXT
  6. 1050 COLOR 0,%15:CLS
  7. 1060 CLEAR ,,,50000:DIM BG%(INT((INT(460+7)/8)*200*4+2-1)/2)
  8. 1070 LOAD@ "title.put",BG%:LOAD@ "Q:\FJ\PCM\RYM_ALL5.PMB" : GOSUB *FM_SET
  9. 1080 FOR I=0 TO 15:PALETTE I,[0,0,0]:NEXT
  10. 1090 PUT@A(80,140)-(80+460,140+200),BG%,PSET
  11. 1100 FOR I=0 TO 15
  12. 1110   GOSUB *PAL:FOR J=0 TO 256:NEXT
  13. 1120 NEXT
  14. 1130  BGM 0:GOSUB *MUSIC:PLAY "R1"
  15. 1140 FOR I=15 TO 0 STEP -1
  16. 1150   GOSUB *PAL:FOR J=0 TO 256:NEXT
  17. 1160 NEXT
  18. 1170 COLOR 0,0,0:CLS:PALETTE@
  19. 1180 RUN "MENU.BAS"
  20. 1190 END
  21. 1200 '-----------------------------------------------------
  22. 1210 *MUSIC
  23. 1220   T$="T108%CO5L16U0"
  24. 1230   PLAY T$,T$,T$,T$,T$,T$,T$,T$,T$,T$,T$,T$,T$,T$
  25. 1240 '-----------------------------------------------------
  26. 1250   A$="@ 2O5L8.V 3Q6 %L EE DDDDCCCC<BB Q8 B1."
  27. 1260   B$="@ 2O5L8.V 2Q6 %L CC<BBBBAAAA GG Q8 G1."
  28. 1270   C$="@ 2O4L8.V 2Q6 %R AA AAGGGGFF FF Q8 E1."
  29. 1280   D$="@ 2O4L8.V 3Q6 %R FF FFEEEEDD DD Q8 C1."
  30. 1290   E$="@41O4L16V4U+55  %LF]A]>C %C E[C<[A %R F]A]B> %C D[<B[A %L E]G]B> %C D[<B[G %R A]>C]E %C A[E[C %L A]F]C< %C A[F[D< %R B]>D]F %C G[B>[D<B1."
  31. 1300 '
  32. 1310   F$="@41O4L16V2U-55  F8]A>]CE[C[<A F]A]B> D[<B[A E]G]B> D[<B[G A]>C]E A[E[C A]F]C< A[F[D <B]>]DF G[B>[D< B1."
  33. 1320   G$="@13O2L16V5      F8.RRFG8.RRGC8.RRCA8.RRAF8.RRFG8.RRGC1."
  34. 1330   H$="@ 1O1L16V2      ((CRR RRC)3)2"
  35. 1340   I$="@ 1O2L16V1   Q1 ((RRR FRR)3)2"
  36. 1350   J$="@ 1O6L16V3      ((B[[[[[B[[[[BV12B[[[[[B[[[[BV10)3)2"
  37. 1360   K$="@13O5L8.V1      RE RDRDRCRCR<BR B1."
  38. 1370   L$="@13O5L8.V1      RC<RBRBRARAR GR G1."
  39. 1380   M$="@13O4L8.V1      RA RARGRGRFR FR E1."
  40. 1390   N$="@13O4L8.V1      RF RFRERERDR DR C1."
  41. 1400  PLAY A$,B$,C$,D$,E$,F$,G$,H$,I$,J$,K$,L$,M$,N$
  42. 1410 RETURN
  43. 1420 *FM_SET ' 作成:真・ＦＭＢデータ→ＢＡＳＩＣデータ　コンバーター
  44. 1430 DIM FM%(23) : RESTORE *FM_SET
  45. 1440 SAD&=VARPTR(FM%(0))
  46. 1450 FOR I%=1 TO 2 
  47. 1460   READ NUM%,TN$ : TN$=LEFT$(TN$+SPACE$(8),8)
  48. 1470   FOR OFS%=0 TO 7 : POKE SAD&+OFS%,ASC(MID$(TN$,OFS%+1,1)) : NEXT
  49. 1480   FOR OFS%=8 TO 33
  50. 1490      READ DT$ : POKE SAD&+OFS%,VAL("&H"+DT$)
  51. 1500   NEXT : VOICE NUM%,FM%
  52. 1510 NEXT : RETURN
  53. 1520 'FM TONE DATA
  54. 1530 'synth-2 
  55. 1540 DATA 2 ,synth-2 
  56. 1550 DATA 32,71,34,72,20,20,0F,0F,1F,9F,14,14
  57. 1560 DATA 00,00,10,10,00,00,02,02,03,03,18,18,2C,00
  58. 1570 'EPIANO-1
  59. 1580 DATA 41 ,EPIANO-1
  60. 1590 DATA 73,33,72,32,1F,1B,10,0C,95,95,15,15
  61. 1600 DATA 0D,0D,0A,0A,05,05,05,05,16,16,07,07,34,03
  62. 1610 *PAL
  63. 1620   PALETTE  0,[ 0*I, 0*I, 0*I]
  64. 1630   PALETTE  1,[ 0*I, 0*I, 8*I]
  65. 1640   PALETTE  2,[ 0*I, 8*I, 0*I]
  66. 1650   PALETTE  3,[ 0*I, 8*I, 8*I]
  67. 1660   PALETTE  4,[ 8*I, 0*I, 0*I]
  68. 1670   PALETTE  5,[ 8*I, 0*I, 8*I]
  69. 1680   PALETTE  6,[ 8*I, 8*I, 0*I]
  70. 1690   PALETTE  7,[ 8*I, 8*I, 8*I]
  71. 1700   PALETTE  8,[ 4*I, 4*I, 4*I]
  72. 1710   PALETTE  9,[ 0*I, 0*I,15*I]
  73. 1720   PALETTE 10,[ 0*I,15*I, 0*I]
  74. 1730   PALETTE 11,[ 0*I,15*I,15*I]
  75. 1740   PALETTE 12,[15*I, 0*I, 0*I]
  76. 1750   PALETTE 13,[15*I, 0*I,15*I]
  77. 1760   PALETTE 14,[15*I,15*I, 0*I]
  78. 1770   PALETTE 15,[15*I,15*I,15*I]
  79. 1780 RETURN
  80.